home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / oldBrowser.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  7.4 KB  |  211 lines
  1. <%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="wmssecure/include/wmsConstants.inc"-->
  3. <!--#include file="wmssecure/include/wmsLocStrings.inc"-->
  4. <!--#include file="wmssecure/include/wmsServerHash.inc"-->
  5. <!--#include file="wmssecure/include/wmsconnect.inc"-->
  6. <!--#include file="wmssecure/include/wmsCommon.inc"-->
  7. <!--#include file="wmssecure/include/wmsHeader.inc"--> 
  8. <% 
  9. '+-------------------------------------------------------------------------
  10. '
  11. '  Microsoft Windows Media
  12. '  Copyright (C) Microsoft Corporation. All rights reserved.
  13. '
  14. '  File:       oldBrowser.asp
  15. '
  16. '  Contents:    Tells the user to upgrade their browser
  17. '
  18. '--------------------------------------------------------------------------
  19.  
  20. Dim strBrowserType
  21. Dim dwBrowserType
  22.  
  23. 'Session( "BrowserType" ) = ""
  24. 'if( "" = Session( "BrowserType" ) ) then
  25.     BrowserSniff
  26. 'end if
  27.  
  28. dwBrowserType = Session( "BrowserType" )
  29.  
  30. if( brMSIE = Session( "BrowserType" ) ) then
  31.     strBrowserType = L_MSIE_TEXT
  32. elseif( brNetscape = Session( "BrowserType" ) ) then
  33.     strBrowserType = L_NETSCAPE_TEXT
  34. elseif( brOpera = Session( "BrowserType" ) ) then
  35.     strBrowserType = L_OPERA_TEXT
  36. else
  37.     strBrowserType = "??"
  38. end if
  39.  
  40. '////////////////////////////////////////////////////////////////
  41. Function BuildReqBrowserString()
  42.     Dim strTemplate
  43.     Dim strFinalString
  44.     strTemplate = L_BROWSERUPGRADEIE_TEXT
  45.     if brMSIE = Session( "BrowserType" ) then
  46.         strFinalString = Replace( strTemplate, "_1_", L_MSIE_TEXT, vbTextCompare )
  47.         strFinalString = Replace( strFinalString, "_2_", CStr( MIN_MSIE_VERSION ), vbTextCompare )
  48.     elseif brNetscape = Session( "BrowserType" ) then
  49.         strFinalString = Replace( strTemplate, "_1_", L_NETSCAPE_TEXT, vbTextCompare )
  50.         strFinalString = Replace( strFinalString, "_2_", CStr( MIN_NSCP_VERSION ), vbTextCompare )
  51.     else
  52.         strFinalString = Replace( strTemplate, "_1_", L_OPERA_TEXT, vbTextCompare )
  53.         strFinalString = Replace( strFinalString, "_2_", CStr( MIN_OPERA_VERSION ), vbTextCompare )
  54.     end if
  55.     
  56.     strFinalString = Server.HTMLEncode( strFinalString )
  57.     
  58.     ' Reinstate boldface tags
  59.     strFinalString = Replace( strFinalString, "<b>", "<b>", vbTextCompare )
  60.     strFinalString = Replace( strFinalString, "</b>", "</b>", vbTextCompare )
  61.     BuildReqBrowserString = strFinalString
  62.     
  63. End Function
  64.  
  65.  
  66. '////////////////////////////////////////////////////////////////
  67. Function BuildLinkString()
  68.     Dim strTemplate
  69.     Dim strLink
  70.     strTemplate = L_UPDATELINKSTRING_TEXT
  71.     strLink = "<a oncontextmenu=" & chr(34) & "JavaScript:event.cancelBubble=true;return false;" & chr(34) & " href=" & chr(34)
  72.     if g_bNetscape then
  73.         strLink = strLink & L_UPDATEURL_TEXT
  74.     else
  75.         strLink = strLink & L_UPDATEURLIE_TEXT
  76.     end if
  77.     strLink = strLink & chr(34) & "><b>" & L_UPDATELINKHOTSPOT_TEXT & "</b></a>"
  78.     BuildLinkString = Replace( Server.HTMLEncode( strTemplate ), "___", strLink, 1 )
  79. End Function
  80.  
  81.  
  82. WriteHTMLHeader( L_OLDBROWSER_TEXT ) %>
  83. <link rel="stylesheet" type="text/css" href="wmsStyles.css">
  84. <script language="JavaScript">
  85. /*@cc_on @*/
  86. document.onmouseup="void( 0 );";
  87.  
  88. ////////////////////////////////////////////////////////////////
  89. function UseSingleFrame()
  90. {
  91. /*@if (@_jscript_version >= 5.5)
  92.     try 
  93.     {
  94. @end @*/
  95.     if( window.parent != window )
  96.     {
  97. <%
  98. if( brMSIE <> dwBrowserType ) then %>
  99.         parent.document.location = parent.document.location.protocol + "//" + parent.document.location.host + "/pages/server_stopped.asp?server=<%= g_strQueryStringServer %>&serverop=noop";
  100. <% else %>
  101.         document.parentWindow.parent.parent.location = document.parentWindow.parent.parent.location.protocol + "//" + document.parentWindow.parent.parent.location.host + "/pages/server_stopped.asp?server=<%= g_strQueryStringServer %>&serverop=noop";
  102. <% end if %>
  103.     }
  104. /*@if (@_jscript_version >= 5.5)
  105.     } 
  106.     catch( error )
  107.     {
  108.         return;
  109.     }
  110. @end @*/
  111. }
  112. </script>
  113. </head> 
  114. <body bgcolor="white" topmargin="12" leftmargin="12" rightmargin="12" marginwidth="12" oncontextmenu="JavaScript:event.cancelBubble=true;return false;" onload="JavaScript:UseSingleFrame();"><table width="100%" bgcolor="white" cellspacing="5" border="0">
  115. <table cellspacing=10 cellpadding=10 border="0" height="100%" width="100%"><tr><td><center>
  116. <table cellspacing=1 cellpadding=10 bgcolor="white" bordercolor="#6699FF" border="2"><tr><td>
  117. <table cellspacing=0 cellpadding=0 bgcolor="white" border="0">
  118. <tr>
  119. <!--
  120.     <td>
  121.         <img src="pages/img/wmsspacer_.gif" width=12 height=1> 
  122.     </td>
  123. -->
  124.     <td align="left" valign="bottom" colspan=2>
  125.         <table cellspacing=0 cellpadding=0 border=0>
  126.         <tr>
  127.             <td align="left" valign="middle">
  128.                 <img src="/img/warning32.gif" height="32" width="32" border="0">
  129.             </td>
  130.             <td align="left" valign="middle">
  131.                 <img src="/img/wmstransparent.gif" height="1" width="12" border="0">
  132.             </td>
  133.             <td align="left" valign="middle" nowrap width="100%" class="small">
  134.                 <b><%= Server.HTMLEncode( L_OLDBROWSER_TEXT ) %></b>
  135.             </td>
  136.         </tr>
  137.         </table>
  138.     </td>
  139. </tr>
  140. <tr>
  141.     <td>
  142.         <img src="/img/wmsspacer_.gif" width="24" height=1> 
  143.     </td>
  144.     <td class="small">
  145.         <br>
  146.         <%= BuildReqBrowserString() %><br><br><%= Server.HTMLEncode( L_BROWSERTABLETITLE_TEXT ) %>
  147.     </td>
  148. </tr>
  149. <tr>
  150.     <td align="left" valign="middle">
  151.         <img src="/img/wmsspacer_.gif" height="1" width="24" border="0">
  152.     </td>
  153.     <td>
  154.         <table border="0" cellspacing="5" cellpadding="5">
  155.         <tr>
  156.             <td>
  157.                 <img src="/img/wmsspacer_.gif" height="1" width="12" border="0">
  158.             </td>
  159.             <td class="small">
  160.                 <table border="0" cellspacing="3" cellpadding="1" bgcolor="#dddddd">
  161.                 <tr>
  162.                     <td valign="top" class="small"><font color="black"><%= Server.HTMLEncode( L_USINGBROWSER_TEXT ) %></font></td>
  163.                     <td valign="top" bgcolor="#eeeeee" class="small"><em><%= strBrowserType %></em> </td>
  164.                 </tr>
  165.                 <tr valign="top">
  166.                     <td valign="top" class="small"><font color="black"><%= Server.HTMLEncode( L_USINGBROWSERVERS_TEXT ) %></font></td>
  167.                     <td valign="top" bgcolor="#eeeeee" class="small"><em><%= CStr( g_curBrowserVersion ) %></em> </td>
  168.                 </tr>
  169.                 </table>
  170.             </td>
  171.         </tr>
  172.         </table>
  173.     </td>
  174. </tr>
  175. <tr>
  176.     <td>
  177.         <img src="/img/wmsspacer_.gif" width="24" height="1"> 
  178.     </td>
  179.     <td nowrap class="small">
  180.         <br>
  181.         <%= BuildLinkString %>
  182.         <br> 
  183.     </td>
  184. </tr>
  185. </table>
  186. <table width="100%" cellpadding="2" cellspacing="2" ID="Table1">
  187. <tr>
  188.     <td align="center">
  189.         <button tabIndex="1" class="closebutton" onClick="JavaScript:document.location.replace( 'wmslogoff.asp?close=1' );" ID="Button1"><%= Server.HTMLEncode( L_CLOSEBTN_TEXT ) %></button>
  190.     </td>
  191. </tr>
  192. </table>
  193. </td></tr></table>
  194. </center>
  195. </td></tr></table>
  196. </body>
  197. <script language="Javascript">
  198. /*@cc_on @*/
  199. /*@if (@_jscript_version >= 5.5)
  200.     try 
  201.     {
  202. @end @*/
  203.         UseSingleFrame();
  204. /*@if (@_jscript_version >= 5.5)
  205.     } 
  206.     catch( error )
  207.     {
  208.     }
  209. @end @*/
  210. </script>
  211. </html>